home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
09 Application Software
/
GC1.SDA
/
SEQ TO GRT-CIR
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
46 lines
10 REM THIS PROGRAM CONVERTS
20 REM "*.SEQ" SEQUENTIAL FILES
30 REM BACK TO RELATIVE FILES SO THAT
40 REM THEY CAN BE USED IN
50 REM "GREAT.CIRCLE.ARC"
60 RT$=CHR$(13)
70 INPUT" INPUT DRIVE";ID
80 INPUT" OUTPUT DRIVE";OD
90 OPEN15,OD,15,"I0"
100 OPEN14,ID,15
110 PRINT"[147]":FORI=65TO90
120 PRINT"WORKING ON FILE: "CHR$(I)".SEQ"
130 OPEN3,ID,3,"0:"+CHR$(I)+".SEQ,S,R"
140 GOSUB430
150 INPUT#3,MN:CLOSE3:PRINT"RECORD COUNT:"MN
160 PRINT"MAKING RELATIVE FILE: "CHR$(I)
170 OPEN2,OD,2,"0:"+CHR$(I)+",L,"+CHR$(54)
180 RN=MN:GOSUB360:GOSUB360:PRINT#2,CHR$(255);
190 RN=1:GOSUB360:GOSUB360:PRINT#2,MN
200 PRINT"LOADING IT"
210 OPEN3,ID,3,"0:"+CHR$(I)+".SEQ,S,R":INPUT#3,MN
220 GOSUB430
230 FORRN=2TOMN
240 GOSUB360
250 INPUT#3,PL$,LA$,LO$
260 O$=PL$+RT$+LA$+RT$+LO$
270 PRINT#2,O$;
280 NEXT
290 CLOSE2:CLOSE3
292 IFOD<>IDTHEN320
300 PRINT"SCRATCHING: "CHR$(I)+".SEQ"
310 PRINT#14,"S0:"+CHR$(I)+".SEQ"
320 NEXT
330 PRINT"ALL DONE."
340 FORI=1TO15:CLOSEI:NEXT:END
350 :
360 RH=INT(RN/256):RL=RN-(256*RH)
370 PRINT#15,"P"+CHR$(96+2)+CHR$(RL)+CHR$(RH)+CHR$(1)
380 INPUT#15,E,E$,AA,B
390 IF E=0ORE=50THENRETURN
400 PRINT"DISK ERROR" E;E$;AA;B
410 CLOSE8:CLOSE15:END
420 :
430 INPUT#15,E,E$,A,B:IFE<20THENRETURN
440 CLOSE2:CLOSE3:CLOSE15:PRINT"DISK ERROR" E;E$;A;B